      PROGRAM EXAMPLE(OUTPUT,TAPE6=OUTPUT,TAPE7)
      DIMENSION X(84),Y(84),DEV(8),PK(8),XK(9),IPK(8)
      DIMENSION R(20),C(18,18),WK(1247),DF(84),XR(20)
      DATA XK/.1E+01,.4E+1,.7E+1,.12E+02,.25E+02,
     *.49E+02,.68E+02,.74E+02,.84E+02/
      DATA PK/.1E+2,.0E+0,.0E+0,.0E+0,.0E+0,.0E+0,
     *.0E+0,.0E+0/
      DATA IPK/1,1,1,1,0,0,1,0/
      DATA DEV/.8E+2,.8E+2,.8E+2,.15E+2,.15E+2,.1E+2,
     *.8E+2,.2E+2/
      DATA Y/13.0,12.5,12.0,11.5,11.0,13.7375,16.475,
     *19.2125,21.95,23.5875,25.225,26.8625,28.5,29.33
     *75,30.175,31.0125,31.85,32.10,32.35,32.60,32.85,
     *32.75625,32.6625,32.56875,32.475,32.81875,
     *33.1625,33.50625,33.85,34.00625,34.1625,34.3187
     *5,34.475,34.725,34.975,35.225,35.475,35.725,
     *35.975,36.225,36.475,36.725,36.975,37.225,37.47
     *5,37.35,37.225,37.1,36.975,37.1,37.225,37.35,
     *37.475,37.225,36.975,36.725,36.475,36.3,36.125,
     *35.95,35.775,35.45,35.125,34.8,34.475,34.225,
     *33.975,33.725,33.475,29.16875,24.8625,20.55625,
     *16.25,15.7625,15.275,14.7875,14.3,14.475,
     *14.650,14.825,15.0,15.175,15.35,15.525/
      DATA XR/2.5,6.5,7.1,9.7,11.3,15.7,19.03,22.735,
     *30.123,40.8,48.365,52.1,60.93,67.8,70.14,71.8,
     *73.31,75.12,76.0,83.999/
      N=84
      NK=9
      DO 10 I=1,84
      X(I)=I
      DF(I)=0.0
10    CONTINUE
      NN=20
      IW=0
      NKMAX=18
      ITMAX=35
      CALL RSUTDS(N,NK,X,Y,DF,XK,IPK,PK,DEV,NN,IW,
     *NKMAX,ITMAX,XR,R,C,WK,IERR)
      WRITE(7,110)(WK(I),I=1,1247)
      WRITE(7,110)(PK(I),I=1,8)
      WRITE(6,90)IERR
      IF(IERR.EQ.0)THEN
      WRITE(6,30)
      WRITE(6,40)(XR(I),R(I),I=1,20)
      WRITE(6,50)(PK(I),I=1,8)
      WRITE(6,60)
      DO 20 J=1,18
      WRITE(6,80)(C(I,J),I=1,18)
20    CONTINUE
      ENDIF
100   STOP
30    FORMAT(/23H    INTERPOLATED VALUES,//
     *3(18H    XR       R    )/)
40    FORMAT(3(F8.3,1X,F8.3,1X))
50    FORMAT(/24H    FINAL TENSION VALUES,//8F6.1)
60    FORMAT(/22H    CORRELATION MATRIX,/)
80    FORMAT(6F8.3)
90    FORMAT(12H    IERR IS ,I3)
110   FORMAT(3E24.14)
      END
